home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / gui / gtb14.lha / QED_ARexx_Macro < prev    next >
Encoding:
Text File  |  1992-03-24  |  889 b   |  92 lines
  1. /* AutoConversion QED AREXX macro for GadTools files */
  2. /* will not work for raw asm files because I am too lazy */
  3. /* the checking routines */
  4.  
  5. options results
  6.  
  7. 'lock 1'
  8.  
  9. 'goto 2'
  10.  
  11. 'status S'
  12.  
  13. teststring=Result
  14.  
  15. Test=Word(teststring,(WORDS(teststring)-1))
  16.  
  17. IF Test~="GadToolsBox" THEN DO
  18.  
  19. 'lock 0'
  20.  
  21. 'message Not a GadToolsBox File, Exiting'
  22.  
  23. EXIT
  24.  
  25. END
  26.  
  27. 'goto 4'
  28.  
  29. 'status S'
  30.  
  31. teststring=Result
  32.  
  33. Test=Word(teststring,2)
  34.  
  35. IF Test="Modified" THEN DO
  36.  
  37. 'lock 0'
  38.  
  39. 'message This file is already modified, Exiting!'
  40.  
  41. EXIT
  42.  
  43. END
  44.  
  45. 'CASE 1'
  46.  
  47. 'GOTO 15'
  48.  
  49. DO FOREVER
  50.  
  51. 'STA S'
  52.  
  53. StringRes=Result
  54.  
  55. String=WORD(StringRes,1)
  56.  
  57. IF String="" THEN LEAVE
  58.  
  59. 'BOL'
  60.  
  61. 'SPOT 0'
  62.  
  63. 'REP 1 'String'\\_LVO'String
  64.  
  65. 'SPOT 1'
  66.  
  67. 'LIN +1'
  68.  
  69. END
  70.  
  71. 'message Finished Processing!'
  72.  
  73. 'GOTO 4'
  74.  
  75. 'LOCK 0'
  76.  
  77. 'TEXT *  Modified in Arexx by Ken Simpson\N'
  78.  
  79. 'STA F'
  80.  
  81. Filename=Result
  82.  
  83. 'STA P'
  84.  
  85. Path=Result
  86.  
  87. File=Path|Filename
  88.  
  89. 'WRI 'File'p'
  90.  
  91. EXIT
  92.